object Form1: TForm1
  Left = 352
  Top = 137
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'We-Blocker'
  ClientHeight = 294
  ClientWidth = 328
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    Left = 8
    Top = 72
    object Controls1: TMenuItem
      Caption = 'Go to master controls'
      Visible = False
      OnClick = GotoParentControlsClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object ChangeUser1: TMenuItem
      Caption = 'Change current user'
      OnClick = ChangeUser1Click
    end
    object LogOut1: TMenuItem
      Caption = 'Change to GUEST mode (Logout)'
      OnClick = LogOut1Click
    end
    object RegisterWeBlocker1: TMenuItem
      Caption = 'Register We-Blocker'
      Visible = False
      OnClick = RegisterWeBlocker1Click
    end
    object Help: TMenuItem
      Caption = 'Help'
      OnClick = HelpClick
    end
  end
  object URLS1DB: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 64
    Top = 104
  end
  object UsersDB: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 144
    Top = 12
  end
  object UsersSource: TDataSource
    DataSet = UsersDB
    Left = 114
    Top = 12
  end
  object LogDb: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = True
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 144
    Top = 42
  end
  object LogSource: TDataSource
    DataSet = LogDb
    Left = 114
    Top = 42
  end
  object LogoutTimer: TTimer
    Enabled = False
    Interval = 300000
    OnTimer = LogoutTimerTimer
    Left = 52
    Top = 12
  end
  object URLS2DB: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 88
    Top = 104
  end
  object URLS3DB: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 120
    Top = 104
  end
  object URLS4DB: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 144
    Top = 104
  end
  object Wordsdb: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    OnCalcFields = WordsdbCalcFields
    Left = 144
    Top = 66
    object WordsdbWORD: TStringField
      FieldName = 'WORD'
      Size = 30
    end
    object WordsdbCalcWordType: TStringField
      DisplayWidth = 25
      FieldKind = fkCalculated
      FieldName = 'CalcWordType'
      Calculated = True
    end
    object WordsdbTYPE: TSmallintField
      FieldName = 'TYPE'
    end
    object WordsdbUSER: TStringField
      FieldName = 'USER'
      Size = 1
    end
    object WordsdbCalcWordWeight: TStringField
      DisplayWidth = 35
      FieldKind = fkCalculated
      FieldName = 'CalcWordWeight'
      Size = 35
      Calculated = True
    end
    object WordsdbWordWeight: TIntegerField
      DisplayWidth = 10
      FieldName = 'WordWeight'
    end
  end
  object WordsSource: TDataSource
    DataSet = Wordsdb
    Left = 114
    Top = 66
  end
  object AppInfo: TzShowApp
    CPUType = 5
    CPUString = 'AMD K5/K6'
    CPUVendor = 'AuthenticAMD'
    CPUMMX = True
    CPUStepping = 0
    CPUModel = 8
    CPUSpeed = 299
    UseCmdShow = False
    ShowOnStatusBar = False
    ShowMainForm = False
    ShowHint = True
    OnAskEndSession = AppInfoAskEndSession
    Left = 8
    Top = 8
  end
  object zTrayIcon1: TzTrayIcon
    PopupMenu = PopupMenu1
    LeftPopupMenu = PopupMenu1
    HideParentForm = True
    ShowDesigning = False
    Active = False
    Icon.Data = {<image001.ico>}
    ToolTip = 'WeBlocker'
    Left = 8
    Top = 40
  end
  object AsserterLauncher: TTimer
    Interval = 5000
    OnTimer = AsserterLauncherTimer
    Left = 8
    Top = 136
  end
  object Configdb: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 64
    Top = 136
  end
  object GHServer1: TGHServer
    Active = False
    Bindings.Strings = (
      ':6711'
      ':11523')
    DefaultPort = 0
    Workercode = GHServer1Workercode
    ThreadCacheSize = 6
    Left = 6
    Top = 102
  end
  object AdminClient: TGHClient
    Port = 6811
    CacheDNSLookup = False
    Left = 116
    Top = 206
  end
  object WBUserBlockdb: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 80
    Top = 208
    object WBUserBlockdbSite: TStringField
      FieldName = 'Site'
      Size = 100
    end
    object WBUserBlockdbBlockcats: TIntegerField
      FieldName = 'Blockcats'
    end
  end
  object WBUserUnBlockdb: THalcyonDataSet
    About = 'Halcyon Version 6.737 (08 Feb 01)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 80
    Top = 244
    object WBUserUnBlockdbSite: TStringField
      FieldName = 'Site'
      Size = 100
    end
  end
end